Amiga Collections: Auge 4000/Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip/Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf/Write/WRITE.lha/WRITEV3.371.lha/WRITE.install

Text File | 1993-11-20 | 16KB | 526 lines

;=============================================================================
; Only Experts

(set @user-level 2
)

(set DEMO FALSE
)

;=============================================================================
; make sure we are running under a 2.04 ROM

(if (< (/ (getversion) 65536) 37)
  (
    (abort "WRITE läuft nur mit Kickstart 2.0 oder größer !")
  )
)

;=============================================================================
; explain what we are all about...

(message "Dieses Script installiert WRITE und die dazugehörigen "
         "Daten in ihrem System :\n\n"
         "'GarbageCollector.library',\n"
         "'GarbagePrefs',\n"
         "'GCStat',\n"
         "'WRITE',\n"
         "'Config/#?.config',\n"
         "'WRITE.dok','WRITE.guide','WRITE.dvi'\n"
         "'deutsch/WRITE.catalog','english/WRITE.catalog'\n"
         "diverse REXX-Scripts\n"
         "und setzt schließlich die Umgebungsvariabeln\n"
         "'WRITE.config' und 'WRITE.guide'."
)

;=============================================================================
; Installieren der garbagecollector.library

(copylib (prompt "Installiere die\n"
                 "'GarbageCollector.library'\n"
                 "nach libs:")
         (help   "Die 'GarbageCollector.library' ist für die "
                 "Funktion von 'WRITE' unbedingt nötig. "
                 "Sie organisiert die Speicherverwaltung.")
         (source "LIBS/garbagecollector.library")
         (dest "LIBS:")
         (confirm)
)

;=============================================================================
; Installieren der garbagecollector Prefs

(if (askbool (prompt "Soll das Preferences-Programm\n"
                     "'GarbagePrefs'\n"
                     "kopiert werden ?\n\n"
                     "Dieses Programm sollte nach einer "
                     "Neuinstallation sofort augerufen werden !")
             (help   "Nur durch das GrabagePrefs-Programm\n"
                     "wird die 'garbagecolletor.library'\n"
                     "optimal konfiguriert !")
    )
;THEN
  (
    (set @PREFS-DIR
      (askdir (prompt  "Wohin soll das Preferences-Programm\n"
                       "'GarbagePrefs'\n"
                       "kopiert werden ?")
              (help    @askdir-help)
              (default "SYS:Prefs")
      )
    )

    (set @PREFS-FULL
      (tackon @PREFS-DIR "GarbagePrefs"
      )
    )

    (copyfiles (prompt "Kopiere das Preferences Programm\n"
                       "'GarbagePrefs'\n"
                       "nach :\n"
                       @PREFS-FULL)
               (help   "Mit dem Programm 'GarbagePrefs' können sie "
                       "die 'GarbageCollector.library' optimal an "
                       "ihr vorhandenes System und vor allem an den "
                       "vorhandenen Speicher anpassen\n"
                       "Starten sie dieses Progamm sofort nach Beendigung "
                       "der Installation\n"
                       "Wählen sie den Menüpunkt 'Editieren/Werte vorschlagen' "
                       "und speichern sie ab.")
               (source "Prefs/GarbagePrefs")
               (dest   @PREFS-DIR)
               (infos)
    )
  )
;END
)

;=============================================================================
; Installieren von BCStat

(if (askbool (prompt "Soll BCStat installiert werden ?\n\n"
                     "BCStat zeigt die augenblickliche "
                     "Auslastung des GarbageCollectors an.\n"
                     "Eine nützliche Sache, aber nicht unbedingt "
                     "notwendig.")
             (help   "Aber schaden kanns auch nicht !")
    )

;THEN
  (
    (set @GC-DIR
      (askdir (prompt  "Wohin soll das GarbageCollector-Tool\n"
                       "'GCStat'\n"
                       "kopiert werden ?")
              (help    @askdir-help)
              (default "SYS:Tools")
      )
    )

    (set @GC-FULL (tackon @GC-DIR "GCStat"
                  )
    )

    (copyfiles (prompt "Kopiere 'GCStat' nach :"
                       @GC-FULL)
               (help   @copyfiles-help)
               (source "Tools/GCStat")
               (dest   @GC-DIR)
               (infos)
    )
  )
;END
)

;=============================================================================
; Installieren von WRITE

(set @WRITE-DIR
  (askdir (prompt  "Wohin soll 'WRITE' kopiert werden ?")
          (help    @askdir-help)
          (default "SYS:")
  )
)

(set @WRITE-FULL (tackon @WRITE-DIR "WRITE"
                 )
)

(copyfiles (prompt "Kopiere 'WRITE' nach :"
                   @WRITE-FULL)
           (help   @copyfiles-help)
           (source "WRITE")
           (dest   @WRITE-DIR)
           (infos)
)

(set @default-dest @WRITE-DIR
)

;=============================================================================
; Installieren des Keyfiles

(if (exists "WRITE.KEY"
    )
;THEN
  (
    (set @KEY-DIR
      (askdir (prompt  "Wohin soll der Keyfile\n"
                       "'WRITE.KEY'\n"
                       "kopiert werden ?")
              (help    @askdir-help)
              (default "s:")
      )
    )

    (set @KEY-FULL (tackon @KEY-DIR "WRITE.KEY"
                     )
    )

    (copyfiles (prompt "Kopiere 'WRITE.KEY' nach :"
                       @KEY-FULL)
               (help   @copyfiles-help)
               (source "WRITE.KEY")
               (dest   @KEY-DIR)
               (infos)
    )

    (textfile (prompt "Setze die Umgebungsvariabel\n"
                      "'WRITE.KEY'\n"
                      "Sie sagt WRITE, wo der den Keyfile finden kann. "
                      "Kann der Keyfile nicht gefunden weren, "
                      "oder ist er ungültig, so  werden einige Optionen "
                      "nicht freigegeben.")
              (help   "Tatsächlich wird der Pfad in der Datei\n"
                      "'ENV:WRITE.KEY'\n"
                      "abgespeichert, was die genannte Wirkung hat.")
              (dest   "ENV:WRITE.KEY")
              (append @KEY-FULL)
              (confirm)
    )

    (textfile (prompt "Setze die Umgebungsvariabel\n"
                      "'WRITE.KEY'\n"
                      "auch im ENVARC: Verzeichnis, so das auch nach einem "
                      "Neustart die Umgebungsvariabel gesetzt bleibt.")
              (help   "Tatsächlich wird der Pfad in der Datei\n"
                      "'ENVARC:WRITE.KEY'\n"
                      "abgespeichert, was die genannte Wirkung hat.")
              (dest   "ENVARC:WRITE.KEY")
              (append @KEY-FULL)
              (confirm)
    )
  )
;END
)

;=============================================================================
; Kopieren der Konfiguration

(set @CONFIG-FULL (copyfiles (prompt "Welche Konfigurationsfiles sollen "
                                     "kopiert werden ?")
                             (help   "Der Standardkonfigurationsfile sowie"
                                     "einige Beispielkonfigurationen. ")
                             (source "Config")
                             (dest   "s:")
                             (all)
                             (confirm)
                             (infos)
                  )
)

;=============================================================================
; Setzen der Umgebungsvariabeln WRITE.config

(textfile (prompt "Setze die Umgebungsvariabel 'WRITE.CONFIG.'\n"
                  "mit dem Wert '" @CONFIG-FULL "'\n"
                  "Sie sagt 'WRITE', wo der Konfigurationsfile "
                  "'WRITE.config' zu finden ist")
          (help   "Tatsächlich wird der Pfad in der Datei\n"
                  "'ENV:WRITE.CONFIG'\n"
                  "abgespeichert, was die genannte Wirkung hat.")
          (dest   "ENV:WRITE.CONFIG")
          (append @CONFIG-FULL)
          (confirm)
)

;=============================================================================
; Setzen der Umgebungsvariabeln WRITE.CONFIG für immer

(textfile (prompt "Setze die Umgebungsvariabel 'WRITE.CONFIG' "
                  "auch im ENVARC: Verzeichnis, so das auch nach einem "
                  "Neustart die Umgebungsvariabel gesetzt bleibt.")
          (help   "Tatsächlich wird der Pfad in der Datei\n"
                  "'ENVARC:WRITE.CONFIG'\n"
                  "abgespeichert, was die genannte Wirkung hat.")
          (dest   "ENVARC:WRITE.CONFIG")
          (append @CONFIG-FULL)
          (confirm)
)

;=============================================================================
; now copy the catalogs

(if (>= (/ (getversion "LIBS:locale.library") 65536) 38)

   (
     (set lang (askoptions (prompt "Welche Sprachen sollen installiert weren ?")
                           (help   "Eine sehr nützliche Sache :\n"
                                   "'WRITE' unterstützt die 'locale.library', "
                                   "welche ab OS 2.1 vorhanden ist. "
                                   "'WRITE' kann damit in weiten Teilen "
                                   "sprachlich angepasst werden !")
                           (choices "english" "deutsch")
                           (default 1)
               )
     )

     (set n 0)
     (while (set language (select n "english"
                                    "deutsch"
                                    ""
                          )
            )
     (
         (if (IN lang n)
           (
             (set target (tackon "Locale:Catalogs" language)
             )
             (makedir target)
             (copyfiles (source (cat "LOCALE/Catalogs/" language))
                            (dest target)
                            (all)
             )
           )
         )
         (set n (+ n 1))
     ))
   )
)
;=============================================================================
; Abfrage, welche Anleitungen installiert werden sollen

(set @DOKBITS
        (askoptions
                (prompt "Welche Anleitungen möchten sie "
                        "installiert bekommen ?")
                (help   "WRITE.dok     - Die normale ASCII-Anleitung\n"
                        "WRITE.guide   - Die Anleitung im Amigaguide-Format. "
                        "sehr nützlich, für die Onlinehilfe unendbehrlich.\n"
                        "WRITE.dvi.lha - Ein .dvi-File der Anleitung für alle "
                        "TeX-Freaks. Aus Platzgründen mit LHA gepackt !")
                (choices "WRITE.dok"
                         "WRITE.guide"
                         "WRITE.dvi.lha (mit LHA gepackt !)"
                         "GarbageCollector.LiesMich")
                (default 1)
        )
)

;=============================================================================
; Installieren von WRITE.dok

(if (IN @DOKBITS 0
    )
;THEN
  (

    (set @DOC-DIR
      (askdir (prompt  "Wohin soll die ASCII-Anleitung\n"
                       "'WRITE.dok'\n"
                       "kopiert werden ?")
              (default "MAN:")
              (help    @askdir-help)
      )
    )

    (set @DOC-FULL (tackon @DOC-DIR "WRITE.dok"
                   )
    )

    (copyfiles (prompt "Kopiere 'WRITE.dok' nach :\n"
                       @DOC-FULL)
               (help   @copyfiles-help)
               (source "WRITE.dok")
               (dest   @DOC-DIR)
               (infos)
    )

    (tooltype (prompt         "Setzte DefaultTool...")
              (help           "Nichts Gefährliches !")
              (dest           @DOC-FULL)
              (setdefaulttool @WRITE-FULL)
              (noposition)
    )
  )
;END
)

;=============================================================================
; Installieren von WRITE.guide

(if (IN @DOKBITS 1
    )
;THEN
  (
    (set @GUIDE-DIR
      (askdir (prompt  "Wohin soll der AmigaGuidefile\n"
                       "'WRITE.guide'\n"
                       "kopiert werden ?")
              (help    @askdir-help)
              (default "HELP:deutsch")
      )
    )

    (set @GUIDE-FULL (tackon @GUIDE-DIR "WRITE.guide"
                     )
    )

    (copyfiles (prompt "Kopiere 'WRITE.guide' nach :"
                       @GUIDE-FULL)
               (help   @copyfiles-help)
               (source "WRITE.guide")
               (dest   @GUIDE-DIR)
               (infos)
    )

    (tooltype (prompt         "Setzte DefaultTool...")
              (help           "Nichts Gefährliches !")
              (dest           @GUIDE-FULL)
              (noposition)
    )

    (textfile (prompt "Setze die Umgebungsvariabel\n"
                      "'WRITE.guide'\n"
                      "Sie sagt WRITE, wo der Guide-File zu finden ist. "
                      "Der Guide-File wird für die interaktive Hilfe "
                      "benötigt.")
              (help   "Tatsächlich wird der Pfad in der Datei\n"
                      "'ENV:WRITE.guide'\n"
                      "abgespeichert, was die genannte Wirkung hat.")
              (dest   "ENV:WRITE.guide")
              (append @GUIDE-FULL)
              (confirm)
    )

    (textfile (prompt "Setze die Umgebungsvariabel\n"
                      "'WRITE.guide'\n"
                      "auch im ENVARC: Verzeichnis, so das auch nach einem "
                      "Neustart die Umgebungsvariabel gesetzt bleibt.")
              (help   "Tatsächlich wird der Pfad in der Datei\n"
                      "'ENVARC:WRITE.guide'\n"
                      "abgespeichert, was die genannte Wirkung hat.")
              (dest   "ENVARC:WRITE.guide")
              (append @GUIDE-FULL)
              (confirm)
    )
  )
;END
)

;=============================================================================
; Installieren von WRITE.dvi

(if (= DEMO FALSE
    )
;THEN
  (

    (if (IN @DOKBITS 2
        )
    ;THEN
      (

        (set @DVI-DIR
          (askdir (prompt  "Wohin soll der gepackte .DVI-File\n"
                           "'WRITE.dvi.lha'\n"
                           "kopiert werden ?")
                  (default "TEX:")
                  (help    @askdir-help)
          )
        )

        (set @DVI-FULL (tackon @DVI-DIR "WRITE.dvi.lha"
                       )
        )

        (copyfiles (prompt "Kopiere 'WRITE.dvi.lha' nach :\n"
                           @DVI-FULL)
                   (help   @copyfiles-help)
                   (source "WRITE.dvi.lha")
                   (dest   @DVI-DIR)
                   (infos)
        )

      )
    ;END
    )
  )
;ELSE
  (
    (message "Tut mit leid...\n"
             "WRITE.dvi.lha liegt nur der Vollversion bei !"
    )
  )
;END
)

;=============================================================================
; Installieren von GarbageCollector.LiesMich

(if (IN @DOKBITS 3
    )
;THEN
  (

    (set @COLL-DIR
      (askdir (prompt  "Wohin soll die GarbageCollector-Anleitung\n"
                       "'GarbageCollector.LiesMich'\n"
                       "kopiert werden ?")
              (default "MAN:")
              (help    @askdir-help)
      )
    )

    (set @COLL-FULL (tackon @COLL-DIR "GarbageCollector.LiesMich"
                   )
    )

    (copyfiles (prompt "Kopiere 'GarbageCollector.LiesMich' nach :\n"
                       @COLL-FULL)
               (help   @copyfiles-help)
               (source "GarbageCollector.LiesMich")
               (dest   @COLL-DIR)
               (infos)
    )

    (tooltype (prompt         "Setzte DefaultTool...")
              (help           "Nichts Gefährliches !")
              (dest           @COLL-FULL)
              (setdefaulttool @WRITE-FULL)
              (noposition)
    )
  )
;END
)

;=============================================================================
; Installieren der REXX-Script

(copyfiles (prompt "Welche REXX-Scripts sollen kopiert werden ?")
           (help   "Dies sind einige AREXX-File für verschiedene Zwecke. "
                   "Lesen sie sich den Header der einzelnen Scripte "
                   "für mehr Infrmationen.")
           (source "REXX")
           (dest   "REXX:")
           (all)
           (confirm)
           (infos)
)

(message "Feddich !!!\n\n"
         "Ich wünsche ihnen viel Spaß mit dieser Version von\n\n"
         "WRITE\n")

(exit (quiet))